Made with R, dplyr, & ggplot2
Repo https://github.com/andrie/attractor
# install.packages("devtools")
# devtools::install_github("andrie/attractor")
library(ggplot2)
library(magrittr)
library(attractor)
a <- seed_sprott_7e(000429)
#> setting seed
dat <-
a %>%
attractor_sprott_7e(1e9, dims = c(600, 600))
# str(dat)
plot <- dat %>%
recolour(
"Oranges", zero_colour = "#000000"
)
plot %>% plot
png("test.png",width=12,height=12,units="in",res=600)
Compiled: 2019-06-20